home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / Powerbobs.lha / powerbobsv1.0 / examples / pbobsprite_col.asc < prev    next >
Text File  |  1992-09-02  |  830b  |  50 lines
  1. 'Collision detection between a Pbob and many Sprites.
  2. Screen Open 0,320,200,4,L
  3. Hide On 
  4. Cls 0
  5. Box 0,0 To 15,15
  6. Text 4,10,"1"
  7. Get Bob 1,0,0 To 16,16
  8. Cls 0
  9. Box 0,0 To 15,15
  10. Get Bob 2,0,0 To 16,16
  11. Make Mask 
  12. Bob Update Off 
  13. Sprite Update Off 
  14. Reserve Pbobs 10
  15. Pbob Dbuf False
  16. For I=1 To 10
  17.    Pbob Height I,16
  18. Next 
  19. Pbob 1,Rnd(100),Rnd(8)+120,1
  20. Bob 1,X Pbob(1),Y Pbob(1),1
  21. For I=2 To 7
  22.    X=Rnd(100) : Y=Rnd(8)+120
  23.    Sprite I,X+128,Y+50,2
  24. Next 
  25. Set Psprite Colours 4
  26. Convert Sprites 1
  27. For I=2 To 7
  28.    Psprite I,X Sprite(I),Y Sprite(I),2
  29. Next 
  30. Wait 10
  31. Pbob Update 
  32. Wait Vbl 
  33. Psprite Update 
  34. T=Timer
  35. For I=1 To 1000
  36.    A=Pbobsprite Fastcol(1,2 To 7)
  37. Next 
  38. Print Timer-T
  39. Hide On 
  40. Bob Update 
  41. Sprite Update 
  42. T=Timer
  43. For I=1 To 1000
  44.    A=Bobsprite Col(1,2 To 7)
  45. Next 
  46. Print Timer-T
  47. For I=1 To 7
  48.    Print Pfast Bobsprcol(I),Col(I)
  49. Next 
  50.